home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / rxlistview / testrxlv.rexx < prev    next >
OS/2 REXX Batch file  |  1998-08-15  |  11KB  |  347 lines
  1. /*
  2. ** $VER: testrxlv.rexx 1.3 (15.8.98) Rolf Rotvel
  3. */
  4.  
  5. /*
  6. ** The listview uses functions from rexxsupport.library...
  7. */
  8. call addlib('rexxsupport.library', 0, -30, 0)
  9.  
  10. /*
  11. ** First set the variables that decide how big the listview should be.
  12. ** This must be done before rxlv_init() is called.
  13. */
  14. rxlv.width = 300
  15. rxlv.height = 200
  16.  
  17. /*
  18. ** Initialize the listview. This needs to be done only once. 
  19. */
  20. call rxlv_init()
  21.  
  22. /*
  23. ** Create a test stem. The stem must have the following format:
  24. **
  25. ** <stemname>.0 = number of elements
  26. ** <stemname>.1 = element no 1
  27. ** <stemname>.2 = element no 2
  28. ** ...
  29. */
  30. do i = 1 to 20
  31.     teststem.i = copies(i, i)
  32. end
  33. teststem.0 = 20
  34.  
  35. /*
  36. ** Now create the formatted stem, "viewline.", for the listview.
  37. ** rxlv_init() must have been called before this to create the
  38. ** rxlv.dispcols value.
  39. ** "viewline." is the only global variable besides "rxlv." that the
  40. ** listview procedures shares with the rest of the script.
  41. */
  42. do i = 1 to teststem.0
  43.     viewline.i = left(teststem.i, rxlv.dispcols)
  44. end
  45. viewline.0 = teststem.0
  46.  
  47. /*
  48. ** Loop while displaying the listview.
  49. **
  50. ** The syntax for the main listview procedure is:
  51. ** num = rxlv_main(<title text>, <inline keys>)
  52. **
  53. ** <title text> will be displayed in the window title.
  54. ** <inline keys> will be checked in addition to the normal keys. Which are
  55. ** (Shift)Cursor up/down, Return, Delete, Escape and Help.
  56. **
  57. ** <num> is the variable number of the highlighted item in the listview or 
  58. ** 0 if the list is empty. <num> is always returned no matter what key the
  59. ** user presses to leave the listview.
  60. **
  61. ** The variable rxlv.key contains either the exact inline key or one of the
  62. ** following:
  63. ** RET : User pressed Return
  64. ** DEL :              Delete
  65. ** ESC :              Escape
  66. **
  67. ** Note that the inline keys are case sensitive. Also note that you have to
  68. ** decide for yourself what to do when the user presses Return, Delete or
  69. ** Escape (And Help)
  70. */
  71. do forever
  72.      num = rxlv_main('"q" or "ESC" quits ['viewline.0'] "HELP" for keys', 'qQ')   
  73.      say 'You pressed  : 'rxlv.key
  74.      say 'And selected : 'teststem.num
  75.  
  76.      select 
  77.         when upper(rxlv.key) = 'Q' | rxlv.key = 'ESC' then leave
  78.         when rxlv.key = 'DEL' then do
  79.             if teststem.0 > 0 then do
  80.                 do i = num to teststem.0
  81.                     next = i + 1
  82.                     teststem.i = textstem.next
  83.                     viewline.i = viewline.next
  84.                 end
  85.                 teststem.0 = teststem.0 - 1
  86.                 viewline.0 = teststem.0
  87.             end
  88.         end
  89.         otherwise nop
  90.     end
  91. end
  92. exit
  93.  
  94.  
  95. /*
  96. ** In this procedure you decide what will happen when the user presses Help 
  97. ** in the listview. If you don't want anything to happen then just let it 
  98. ** return immediately. 
  99. */ 
  100. RXLV_HELP: procedure 
  101. say 'Use Cursor/Shift Cursor to' 
  102. say 'move and Enter to select.' 
  103. say 'Help gives you this text :-)'
  104. say 'Delete deletes an item in the list'
  105. say 'Escape or q exits the listview'
  106. return
  107.  
  108. /*
  109. ** Don't touch anything after the rxlv_help() procedures. Unless you know
  110. ** what you're doing of course :-) 
  111. */
  112. RXLV_MAIN: procedure expose viewline. rxlv.
  113. parse arg titletxt, inlinechars
  114.  
  115. /* Reset key */
  116. rxlv.key = ''
  117.  
  118. /* Which is bigger - win rows or lines in stemvar? */
  119. if rxlv.disprows > viewline.0 then rxlv.actrows = viewline.0
  120. else rxlv.actrows = rxlv.disprows
  121.  
  122. /* Get current mouse coordinates */
  123. call forbid
  124. screen = next(rxlv.intui, 56)                         /* IntuitionBase->ActiveScreen */
  125. mousex = c2d(import(offset(screen, 18), 2)) - 50      /* Screen->MouseX */
  126. mousey = c2d(import(offset(screen, 16), 2)) - 50      /* Screen->MouseY */
  127. call permit
  128.  
  129. /* Open the listview */
  130. call open(rxlv.win, 'RAW:'mousex'/'mousey'/'rxlv.width'/'rxlv.height'/'titletxt'/NOSIZE', 'w')
  131. call writech(rxlv.win, rxlv.nocursor||rxlv.nowordwrap)
  132.  
  133. /* Initialize window */
  134. if viewline.0 > 0 then do
  135.     rxlv.row = 1 
  136.     rxlv.var = 1
  137.     rxlv.topvar = 1 
  138.     call writech(rxlv.win, rxlv_getlighty(rxlv.row, rxlv.var)||rxlv.nl||rxlv_getpage(rxlv.var + 1))
  139. end
  140.  
  141. /* Do ze stuff */
  142. do forever
  143.     rxlv.oldrow = rxlv.row 
  144.     rxlv.oldvar = rxlv.var
  145.  
  146.     char = readch(rxlv.win, 1)
  147.     select
  148.         when char = rxlv.csi then do
  149.             char = readch(rxlv.win, 1)
  150.             select
  151.                 when viewline.0 < 2 then nop
  152.                 when char = rxlv.cursordown then do
  153.                     if rxlv.oldvar ~= viewline.0 then do
  154.                         line = rxlv_getunlighty()
  155.                         rxlv.var = rxlv.var + 1
  156.  
  157.                         if rxlv.oldrow < rxlv.actrows then rxlv.row = rxlv.row + 1 
  158.                         else do
  159.                             line = line||rxlv.nl
  160.                             rxlv.row = rxlv.actrows
  161.                             rxlv.topvar = rxlv.topvar + 1
  162.                         end
  163.                         call writech(rxlv.win, line||rxlv_getlighty())
  164.                     end
  165.                     else call rxlv_top()
  166.                 end  
  167.                 when char = rxlv.cursorup then do
  168.                     if rxlv.oldvar ~= 1 then do
  169.                         line = rxlv_getunlighty()
  170.                         rxlv.var = rxlv.var - 1
  171.  
  172.                         if rxlv.oldrow ~= 1 then do
  173.                             rxlv.row = rxlv.row - 1
  174.                             call writech(rxlv.win, line||rxlv_getlighty())
  175.                         end
  176.                         else do
  177.                             rxlv.row = 1 
  178.                             rxlv.topvar = rxlv.topvar - 1
  179.                             call writech(rxlv.win, line||rxlv_getlighty()||rxlv.nl||rxlv_getpage(rxlv.var + 1))
  180.                         end            
  181.                     end
  182.                     else call rxlv_bottom()                  
  183.                 end
  184.                 when char = rxlv.scursorup then do
  185.                     if rxlv.oldvar ~= 1 then do
  186.                         rxlv.row = 1
  187.                         rxlv.var = rxlv.topvar
  188.  
  189.                         if rxlv.oldrow = 1 then do
  190.                             if rxlv.oldvar - rxlv.actrows < 1 then rxlv.topvar = 1
  191.                             else rxlv.topvar = rxlv.oldvar - rxlv.actrows
  192.                             rxlv.var = rxlv.topvar
  193.                             call writech(rxlv.win, rxlv.cls||rxlv_getlighty()||rxlv.nl||rxlv_getpage(rxlv.topvar + 1))
  194.                         end
  195.                         else call writech(rxlv.win, rxlv_getunlighty()||rxlv_getlighty())
  196.                     end
  197.                     else call rxlv_bottom()                  
  198.                 end
  199.                 when char = rxlv.scursordown then do
  200.                     if rxlv.oldvar ~= viewline.0 then do
  201.                         rxlv.row = rxlv.actrows
  202.  
  203.                         if rxlv.oldrow = rxlv.actrows then do
  204.                             if rxlv.oldvar + rxlv.actrows > viewline.0 then rxlv.topvar = viewline.0 - (rxlv.actrows - 1)
  205.                             else rxlv.topvar = rxlv.oldvar + 1
  206.                             rxlv.var = min(viewline.0, rxlv.topvar + (rxlv.actrows - 1))
  207.                             call writech(rxlv.win, rxlv.cls||rxlv_getpage(rxlv.topvar)||rxlv.nl||rxlv_getlighty())
  208.                         end
  209.                         else do
  210.                             rxlv.var = (rxlv.topvar + rxlv.actrows) - 1
  211.                             call writech(rxlv.win, rxlv_getunlighty()||rxlv_getlighty())
  212.                         end
  213.                     end
  214.                     else call rxlv_top()
  215.                 end
  216.                 otherwise nop
  217.             end
  218.         end
  219.         when char = rxlv.esc then do
  220.             rxlv.key = 'ESC'
  221.             return rxlv_close()
  222.         end
  223.         when char = rxlv.cr then do
  224.             rxlv.key = 'RET'
  225.             return rxlv_close()
  226.         end
  227.         when char = rxlv.del then do
  228.             rxlv.key = 'DEL'
  229.             return rxlv_close()
  230.         end
  231.         when pos(char, inlinechars) > 0 then do
  232.             rxlv.key = char
  233.             return rxlv_close()
  234.         end
  235.         when char = rxlv.help then call rxlv_help()
  236.         otherwise nop
  237.     end
  238. end
  239.  
  240.  
  241. RXLV_CLOSE: procedure expose rxlv. viewline.
  242. call close(rxlv.win)
  243. if viewline.0 = 0 then return 0
  244. return rxlv.oldvar
  245.  
  246.  
  247. RXLV_TOP: procedure expose rxlv. viewline.
  248. rxlv.var = 1
  249. rxlv.row = 1
  250.  
  251. if rxlv.topvar = 1 then do   /* Just move to top */
  252.     line = rxlv_getunlighty()
  253.     call writech(rxlv.win, line||rxlv_getlighty())
  254. end
  255. else do
  256.     rxlv.topvar = 1
  257.     call writech(rxlv.win, rxlv.cls||rxlv_getlighty()||rxlv.nl||rxlv_getpage(rxlv.var + 1))
  258. end
  259. return
  260.  
  261.  
  262. RXLV_BOTTOM: procedure expose rxlv. viewline.
  263. rxlv.var = viewline.0
  264.  
  265. if viewline.0 <= rxlv.actrows then do 
  266.     line = rxlv_getunlighty()
  267.     rxlv.row = viewline.0
  268.     call writech(rxlv.win, line||rxlv_getlighty())
  269. end
  270. else do
  271.     rxlv.row = rxlv.actrows
  272.     rxlv.topvar = (viewline.0 - rxlv.actrows) + 1
  273.     call writech(rxlv.win, rxlv.cls||rxlv_getpage(rxlv.topvar)||rxlv.nl||rxlv_getlighty())
  274. end
  275. return
  276.  
  277.  
  278. RXLV_GETPAGE: procedure expose viewline. rxlv.
  279. if viewline.0 = 1 then return ''
  280.  
  281. top = arg(1)
  282. page = ''
  283. do y = 1 to rxlv.actrows - 2                    /* Lines between first and last */
  284.     page = page||viewline.top||rxlv.nl
  285.     top = top + 1
  286. end 
  287. page = page||viewline.top                       /* No newline after last line */
  288. return page
  289.  
  290.  
  291. RXLV_GETUNLIGHTY: procedure expose rxlv. viewline. 
  292. var = rxlv.oldvar
  293. return rxlv.csi||rxlv.oldrow'H'viewline.var
  294.  
  295.  
  296. RXLV_GETLIGHTY: procedure expose rxlv. viewline. 
  297. var = rxlv.var
  298. return rxlv.csi||rxlv.row'H'rxlv.hilite||viewline.var||rxlv.off
  299.  
  300.  
  301. RXLV_INIT: procedure expose rxlv.
  302. /* Hardcoded minimum values */
  303. rxlv.width = max(100, rxlv.width)
  304. rxlv.height = max(50, rxlv.height)
  305.  
  306. /* ANSI stuff */
  307. rxlv.csi = '9b'x  ; rxlv.esc = '1b'x
  308. rxlv.help = '7e'x ; rxlv.del = '7f'x
  309. rxlv.nl = '0a'x   ; rxlv.cr = '0d'x
  310. rxlv.off = rxlv.csi||'0m' 
  311. rxlv.topleft = rxlv.csi'48'x 
  312. rxlv.cls = rxlv.csi'H'rxlv.csi'J'
  313. rxlv.hilite = rxlv.csi'43;32m'
  314. rxlv.nowordwrap = rxlv.csi||'3f376c'x
  315. rxlv.nocursor = rxlv.csi||'302070'x 
  316. rxlv.cursorup = '41'x  ; rxlv.cursordown = '42'x 
  317. rxlv.scursorup = '54'x ; rxlv.scursordown = '53'x
  318. rxlv.win = 'listwin'
  319.  
  320. /* GUI constants */
  321. guiheight = 7 ; guiwidth = 8
  322.  
  323. /* Font info */
  324. rxlv.intui = showlist(l, 'intuition.library',, a)
  325. call forbid
  326. screen = next(rxlv.intui, 56)               /* IntuitionBase->ActiveScreen */
  327. font = next(screen, 136)                    /* Screen->RastPort.Font */
  328. fonty = c2d(import(offset(font, 20), 2))    /* Font->YSize */
  329. fontx = c2d(import(offset(font, 24), 2))    /* Font->XSize */
  330. call permit
  331.  
  332. /* Listview width */
  333. do while (rxlv.width - guiwidth) // fontx ~= 0 
  334.     rxlv.width = rxlv.width + 1 
  335. end
  336. rxlv.dispcols = ((rxlv.width - guiwidth) % fontx)
  337. rxlv.filler = copies(' ', rxlv.dispcols)
  338.  
  339. /* Listview height */
  340. const = guiheight + fonty
  341. do while (rxlv.height - const) // fonty ~= 0 
  342.     rxlv.height = rxlv.height + 1 
  343. end
  344. rxlv.disprows = (rxlv.height - const) % fonty
  345.  
  346. return
  347.